home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 351-375 / 351 / pdc / libsrc.lzh / LibSrc / SysIO / close.c < prev    next >
C/C++ Source or Header  |  1990-04-07  |  1KB  |  44 lines
  1. /*
  2.  * Libraries and headers for PDC release 3.3 (C) 1989 Lionel Hummel.
  3.  * PDC Software Distribution (C) 1989 Lionel Hummel and Paul Petersen.
  4.  * PDC I/O Library (C) 1987 by J.A. Lydiatt.
  5.  *
  6.  * This code is freely redistributable upon the conditions that this 
  7.  * notice remains intact and that modified versions of this file not
  8.  * be included as part of the PDC Software Distribution without the
  9.  * express consent of the copyright holders.  No warrantee of any
  10.  * kind is provided with this code.  For further information, contact:
  11.  *
  12.  *  PDC Software Distribution    Internet:                     BIX:
  13.  *  P.O. Box 4006             or hummel@cs.uiuc.edu            lhummel
  14.  *  Urbana, IL  61801-8801       petersen@uicsrd.csrd.uiuc.edu
  15.  */
  16.  
  17. /* close - closes an open file and free's its fd */
  18.  
  19. #include <errno.h>
  20. #include <fcntl.h>
  21.  
  22. extern void Close();
  23.  
  24. close(fd)
  25. int fd;        /* The file descriptor. */
  26. {
  27.     struct _device *p;
  28.     extern struct _device *_devtab;
  29.  
  30.     p = &_devtab[fd];
  31.     if ( !(0 <= fd && fd < _numdev) || p->_fileHandle == 0) {
  32.         errno = EBADF;
  33.         return(-1);
  34.     }
  35.  
  36.     if ( !(p->_mode & O_STDIO) ) {
  37.         Close( p->_fileHandle );
  38.     }
  39.  
  40.     p->_mode = 0;
  41.     p->_fileHandle = 0;
  42.     return 0;
  43. }
  44.